{ This program draws "polygonal spirals", that is spiral-like
figures made up of straight line segments. The angle between
successive segments is input by the user. }
DECLARE angle { angle between succesive line segments drawn in the spiral }
DECLARE length { length of a line segment; increased after each segment }
AskUser("What angle do you want to use between successive line segments? (Try values close to, or equal to, 45, 72, 90, 120, and 180; For example: 89.7 or 119.)", angle)
length := 0
LOOP
length := length + 0.1
EXIT IF xcoord < -9 OR xcoord > 9 OR ycoord < -9 or ycoord > 9